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14- ~3007 138% 9:96:28 Disk SVMSMASTER: coor. SRCJLTADJ.BLI;1 . (1) 
su ary ee = TABS ADJUST Line-mode command’ 
ULE E ' TABS ADJUST Line-mode command 
IDENT = 'v04-000' ! File: LTADJ. BLi Edit: JBS1011 
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' 
| 
BEGIN 
; 
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t® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL at a CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 
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® 

® 

® 

ce 

i's THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, TRIS SOFTUARE OR “ANY. OTHER = 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 

ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ | 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: cameotatiie. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' FACILITY: EDT -- The DEC Standard Editor 

i ABSTRACT: 


ws 


! 
' 
' 
' 
' 
This module executes the Line mode TAB ADJUST command. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 

i MODIFIED BY: 

1-001 - Original. DJS 30-JAN-19 This module was created 
: 

+ 

' 

! 

1 

' 

' 

: 

t 

' 
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: extracti ng the routine EDTESTSAD ADJ_CMD from the module Pec. BLI. 

! 1- : peguier ze headers. JBS 20-Mar-1981 

: process: ng on bad select range. SMB 01-Jul-1982 

na r screen changed. wnrets ue we 38 983 error. JBS 07-Jul-1982 

Put eDTastsi EOB in li STS 22-Sep-19 

poneue EDTS$$G_SCR_CHGD, the ney sereen logic doesn't need it. JBS 09-Oct-1982 
Put code for édt$$rng_ pos frst jn ine. ST 41"0¢ 121982 
Can't restore from saved pos thon, because we are “noni tytne the work file, 
so the saved Bx 36 on may be invalid. Also, mark Lines as changed in case 
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iy 
seeceune 


we are under 

Change the cal 
Don’ forest to 
Don't bui 


-1 
“sRRERRREATRRES 88 ote 
n ze -Jan- 
53s bytes. JBS 30-Aug-1983 
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EDTSLTADJ EDTSLTADJ = TABS ADJUST Line-mode command 18-50 Sep-19 :3 VAX-11 Bliss-32 V Page 3 
Pe Declarations moet 1 93: 94: 3 DISKSVMSMASTER: chor? see LTADJ.BLI;1 . (2) 
} SSBTTL "Declarations' 
TABLE OF CONTENTS: 
REQUIRE ‘EDTSRC: TRAROUNAM'; 
FORWARD ROUTINE 
EDTSSTSADJ_CMD : NOVALUE; ! Process the TABS ADJUST command | 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ’; 


SISSELEAPALASIALSAAAISELTSLFERE 


a a nw tt et a a st A 


#3 i MACROS: 
51 i NONE 
2g ! 
9653 i EQUATED SYMBOLS: 
55 i NONE 
28 ! 
3 | OWN STORAGE : 
0659 i NONE 
0660 ! 
0661 i EXTERNAL REFERENCES: 
bees i In the routine 
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EDTSLTADJ DISLTADJ = TABS ADJUST Line-mode command 16-Sep-1984 01:02:3 VAX-11 Bliss-32 V4.0-74 Page 4 

TO. 500 DTSSTSADJ_CMD = TABS ADJUST Line-mode command 1 =300 71382 93:96:38 SER SUMEMASTERSCEDT Sec SLTADJ.BLIs1 ° (3) 

3 ge 1 ZSBTTL ‘EDTSSTSADJ_CMD = TABS ADJUST Line-mode command’ 

; 96 1 GLOBAL ROUTINE EDTSSTSADJ_CMD ! TABS ADJUST Line-mode command 

; 3 ; : NOVALUE = 

: 39 3 1 'e¢ 

H 130 ty : } FUNCTIONAL DESCRIPTION: 

; 196 : Command processing routine for TABS ADJUST. 

; ipo Re : } Process each Line in the range as follows: 

; 198 1 3 1. Count the leading tabs and spaces. 

3; 10 ae a -» Remove them all. 

; 108 78 1! . Add the tab increment value. 

3 12 6 : } 4. Re-insert a standard sequence of tabs and spaces. 

; 111 Hi | FORMAL PARAMETERS: 

: 118 é 1 i NONE 

s 116 84 1! 

3 132 0685 : : IMPLICIT INPUTS: 

: 13 886 1/ EDT$$G_TAB_S1Z | 
; 118 88 1! EDTS$T_LN_BuF | 
; 119 9 1: EDT$SA~WK-LN | 
3 139 Rey : EDTSSA_EXE_CURCMD | 
> 122 0692 1 | IMPLICIT OUTPUTS: 

ne 06935 1! 

3 : : ee : EDTS$G_LN_LEN 

> 126 0696 1} ROUTINE VALUE: 

3: 127 0697 1! 

Be a By ete 
ma 9700 i SIDE EFFECTS: | 
: é 0708 1: NONE 

a 7 1! 
i 48 meas 

: 706 BEGIN 

: 1 0708 EXTERNAL ROUTINE 

; 139 70 EDTSSFMT_CHWID, ! Compute the width of a character 

3; 140 710 EDTSSPUT_CH : NOVALUE, 

3 «(141 711 EDTSSNXT_LNRNG, ! Get next Line in range 

; 148 718 EDTSSRNG_REPOS, 

; 14 71 EDTSSRPL_LN, ' Replace a Line in the work file 3 

> 1646 714 EDTS$RD_PRVLN ' Read the previous Line from the work file 

; re ay EDTSSMRR_LNCHG : NOVALUE; ! Mark a Line as changed 

: 149 +19 EXTERNAL 

: 148 a8 EDTS$$G_TAB_SIZ 

> 149 71 EDT$$G_RNG_FRSTLN, 

: 150 720 EDT$$2~RNG-SAVPOS : POS_BLOCK, 


E ADJ EDTSLTADJ = TABS ADJUST Line-mode command 1b-5e -Sep-19 :3 x-11 $-32 V4.0-7 Page 5 
Bu 500 EDTSSTSADJ CRD = TABS ADJUST pa command 1 3057138 93: 38: i3 SK$V nen TER: CEDT. SRC LTADJ.BL1;1 ’ (3) 
“ke 721 EDTSS$A_CUR_BUF REF rece Vie 

: 1 7 EDT$$7-RNG-ORIGPOS : 

3 f 7 : eDTSST_LUN BUF : VECTOR Pah BYTE), 

: 154 724 EDT$$G_LN LEN, 

, 7 725 EDT$$2-E08 L 

:; 1 § 7 § EDTSSA_Wk che : REF LIN BLOCK, 

3 : i 4 EDTSSA_EXE_ CURCMD : REF NODE BLOCK; ! Pointer to the current command. 

: 138 7 $ LOCAL 

: 160 730 RANGE : REF NODE_BLOCK, ! The range block 

s 16) 731 CP, ' Character position 

: 196 7 ¢ EP, ' Position of end of Line 

: 16 7 TC ' Column number 

; «6164 734 NLINES; ! Number of Lines processed 

1 Beg. 

: 169 8 $ i ; Examine the range and, if null, default to SELECT. 

: 199 Or33 3 RANGE = .EDTSSA_EXE_CURCMD CRANGE1); 

; 1% Ore IF (.RANGE CRAN_TYPE] EQL RAN_NULL) THEN RANGE CRAN_TYPE] = RAN_SELECT; 

; (17 074 '¢ 

3 17 tog: Position to the first Line in the range. 

: 176 0746 " EDT$$G_RNG_FRSTLN = 

s 444 ot EDTSSCPy MEM (POS “g1zé. -EDTSSA_CUR_BUF, EDT$$Z2_RNG_ORIGPOS); 

: 179 Oreo IF ( NOT EDTSSRNG_REPOS (.RANGE)) THEN RETURN; 

me ih 

; 18@ O73¢ i Process each Line in the range. | 
: 184 0754 NLINES = 0; | 
; 186 0756 WHILE (EDTSSNXT_LNRNG (0) AND (.EDTSSA_WK_LN NEQA EDT$$Z_E0B_LN)) DO 
3 fH Lede BEGIN | 
: 189 739 ; Initialize pointers to the beginning and end of the current Line. | 
: 191 761 3 CP = CHSPTR (EDTSSA WK_LN CLIN_TEXT)); 

3 «4 6 ¥ EP = CHSPLUS (.CP, 7EDTS$A_WK_CN CLIN_LENGTH)); 

: 19% 764 i Initialize the current column number. 
3 iz 703 ie ‘ 0: 

: 199 789 ‘+ “2 

; 138 iS : j Look for the first non-blank, non-tab character. 

; 7 | 
: St io WHILE CHSPTR_NEQ (.CP, .EP) DO 

3 4 a 2 BEGIN 

: 77% 4 SELECTONE CHSRCHAR (.CP) OF 

3 5 ve? ? SET 

; 777 & * ihd 
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Line 
ADJUST Line-mode command 1 


TO = .1C + 1; 


CASC_K_TAB) : 
TC"= .1C + EDTSSFMT_CHWID (ASC_K_TAB, .1C); 


COTHERWISE) : 
EXITLOOP; 
TES; 


, 1) - TABS a ytty 


TSADJ_CMD = -Sep-19 :C 


Wr O0Oe ee 
= 


CP = CHSPLUS (.CP, 1); 
END; 


14 
} Do not try to build a Line longer than 255 bytes. 


rtttSea oan HHIMEE SHE PHad ata? 


s 


ey 
RCILTADJ.BL1;1 


798 
tea IF ((. TC + CHSDIFF (.EP, .CP)) GTR 255) THEN TC = 255 = CHSDIFF (.EP, .CP); 
9801 EDT$$G_LN_LEN = 0; 
O808 i Insert tabs and spaces into the new Line. 
0804 t= 
0805 
0806 INCR I FROM 1 TO .TC/8 DO 
+444 EDTSSPUT_CH (ASC_K_TAB); 
0809 INCR I FROM 1 TO .TC MOD 8 DO 
0810 EDTSSPUT_CH (' '); 
0811 
bai§ '¢ 
Oatz : And move the remainder of the old Line. 
0815 EDTSSCPY_MEM (CHSDIFF (.EP, .CP), .CP, CHSPTR (EDTSST_LN_BUF, .EDTS$$G_LN_LEN)); 
0816 EDT$$G_LA_LEN = .EDT$SG ENILEN +*CHSDIFF (.EP, .CP); 
oe = ASSERT” (. EDTS$$G_LN_LEN CEQ™255); 
6819 : Replace it in the text buffer. 


EDTSSMRK_LNCHG (SCR_EDIT MODIFY, 0); 
EDTSS$RPL-LN (EDTSS$T-LN_BOF, .EDT$$G_LN_LEN); 
WLINES =" .NLINES + T; 


'¢ 

' Re-position to first Line in the range. 
!' We cannot used the seveq osition because we have modified the work file, 
so any saved position wil 


NLINES = .NLINES = 1; 


WHILE (.NLINES GTR 0) DO 
BEGIN 


4 

4 

4 

4 

4 

4 

4 

4 

4 

te 
791 ' Determine the number of columns the Line should be indented. Do 
136 not let it go below zero. 
8 ; TC = MAX (0, .TC + .EDTSSA_EXE_CURCMD CTAB_COUNT]*.EDT$$G_TAB_SIZ); 
7 
be inaccurate. 
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oe 


EDTS 
EDTS 

65 t corsene =PRVLN (); 
839 


a = .NLINES = 1; 


: 59 
; END; ! of routine EDTS$TSADJ_CMD 


-TITLE EDTSLTADJ EDTSLTADJ = TABS ADJUST Line-mode com 
man 
IDENT \v04-000\ 


) 
| 
| 
| 
EXTRN EDTSSFMT =CHWID, EDTS$PUT_CH | 
EXTRN EDTSSNXT— LNR NG EDTSSRNG-R REPOS 
EXTRN EDTSSRPL“LN, EDT 
EXTRN EDTSSMRK KUN NCHG EorssG TAB. $12 
-EXTRN EDTS$$G_R “FRSfUN 
*EXTRN EDTS$Z_RN G6~SAVPOS 
EXTRN EDTS$$A~CUR-BUF, EDTS$Z RNG_ORIGPOS 
EXTRN EDTS$$T-LN BU it ED DT$$G_CN_ LEN 
-EXTRN EDT$$Z_E0B_L DTSSA_WK_ 
SEXTRN EDTSSA~EXE “tach 
ZEXTRN EDTSSIANTER-ERR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 SENTRY EDTSSISAD CMD, Save R2.R3,R4,R5,R6,R7,R8,- ; 0666 
5B 000000006 00 9€ 00002 MOVAB EDtssG LN_LEN, R11 : | 
50 000000006 00 D0 00009 MOVL  EDTSS$A~ “EXE CURCMD, RO : 0739 
56 04 Aad D0 00010 MOVL 4(RO), RANGE : 
01 Ad 95 00014 TSTB = 1 (RAN ée) + 0741 
04 fF 0017 BNEQ ‘1 : 
01 Ab 0c 90 00019 MOVB #12, 1(RANGE) : 
000000006 00 01 D0 00010 1$ MOVL = #1 EDTSSG_ RNG_ FRSTLN + 0746 
50 000000006 00 D0 00024 MOVL.  EDTSSA A CUR + 0747 
000000006 00 60 OE 28 000 2 MOVC3 #14, (ROD, ~poréss _RNG_ORIGPOS ; 
6 DD 000 PUSHL RANGE + 0749 
000000006 00 01 FB 0035 CALLS ‘ EDTSSRNG_REPOS : 
01 50 E 003¢ BLBS RO: $ : 
4 0003F ET ; 
SA D4 9040 a8: CLRL =—-NLINES + 0754 
7E D4 00042 3S: CLRL = = (SP) : 0756 
000000006 00 gi FB 00044 CALLS #1, EDTSSNXT_LNRNG : 
03 0 048 BLBS RO ; 
OOEA 4E 4$: BRW 178 : 
50 900000006 0 9€ 00051 5$: MOVAB EDT$$Z_E0B_LN, RO : 
50 000000006 00 01 00058 CMPL  EDT$SA“WK_CN, R ; 
ED i3 O5F BEQL «6s 4$ : 
50 000000006 0 p 061 MOVL EDTSSA_uK WK_LN, RO > 0761 
3 07 AO 9E MOVAB 7(RO) ; | 
: 9 9A C ROVZBL (RO) EP : 0762 
5 CO 00 of ADDL2 CP, EP : 
$ D4 2 CLRL. 'iTC > 0766 
58 D4 74 6$: CMPL CP, EP : 0771 
20 77 BEQL 6-98 F 
20 67 91 00079 CMPB s(CP), #32 : 0777 
04 12 0007C¢ BMEQ 86 7$ ; 
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EDTSLTADJ EDTSLTADJ = TABS ADJUST Line-mode command 16-Sep-1984 :3 VAX=11 Bliss-32_V Page 10 
42000 EDISSTSADJ CHD = THBS ADJUST Tinecoode command 1o-Sepe19RG $2158:45 | DRRKSUMGHASTERSCEOT saciLrapy.eLis1 2% cas 
: 273 42 1 END ' of DTSLTA 
He Sk } of module EDT$LTADJ 
: 275 0844 0 ELUDOM 
: PSECT SUMMARY | 
; Name Bytes Atiributes 
:  EDTSCODE 329 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ries Lt ng Pinter sae eet Ly ae reek Syake|s sensens= Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 % 25 40 00:00.2 
> 7$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
: COMMAND QUALIFIERS 

Size: 329 code + 0 data bytes 


Elapsed Hass 00:22.1 

Lines/CPU Min: 281 

Lexemes/CPU-Min: 9476 

poneey Used: 135 pages 
a 


| 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LTADJ/OBJ=OBJ$:LTADJ MSRC$:LTADJ.BLI/UPDATE=(ENH$:LTADJ) | 
Compi | 


tion Complete 
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